home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / zip.spr < prev    next >
Encoding:
Text File  |  1994-07-07  |  4.3 KB  |  154 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/18/94               ZIP.SPR                 21:03:40 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *     S5820250/Windows Databases, Indexes, Relations      
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("zip")
  45.     SELECT zip
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("zip.dbf","DBF","Where is zip?"));
  50.         AGAIN ALIAS zip ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *               Windows Window definitions                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. IF NOT WEXIST("zip") ;
  63.     OR UPPER(WTITLE("ZIP")) == "ZIP.PJX" ;
  64.     OR UPPER(WTITLE("ZIP")) == "ZIP.SCX" ;
  65.     OR UPPER(WTITLE("ZIP")) == "ZIP.MNX" ;
  66.     OR UPPER(WTITLE("ZIP")) == "ZIP.PRG" ;
  67.     OR UPPER(WTITLE("ZIP")) == "ZIP.FRX" ;
  68.     OR UPPER(WTITLE("ZIP")) == "ZIP.QPR"
  69.     DEFINE WINDOW zip ;
  70.         AT 3.333, 40.750 ;
  71.         SIZE 17.615,19.800 ;
  72.         TITLE "Zip/Postal Code" ;
  73.         FONT "MS Sans Serif", 8 ;
  74.         FLOAT ;
  75.         NOCLOSE ;
  76.         MINIMIZE ;
  77.         SYSTEM
  78. ENDIF
  79.  
  80.  
  81. *       *********************************************************
  82. *       *                                                         
  83. *       *           ZIP/Windows Setup Code - SECTION 2            
  84. *       *                                                         
  85. *       *********************************************************
  86. *
  87.  
  88. #REGION 1
  89. CLOSE DATABASES
  90.  
  91. **********   ZIP/POSTAL     *********
  92. USE ZIP
  93. COUNT TO M.Count
  94. DIMENSION AZIP(M.Count,1)
  95. COPY TO ARRAY AZIP
  96.  
  97. CLOSE databases
  98. **************************************
  99.  
  100. *       *********************************************************
  101. *       *                                                         
  102. *       *                ZIP/Windows Screen Layout                
  103. *       *                                                         
  104. *       *********************************************************
  105. *
  106.  
  107. #REGION 1
  108. IF WVISIBLE("zip")
  109.     ACTIVATE WINDOW zip SAME
  110. ELSE
  111.     ACTIVATE WINDOW zip NOSHOW
  112. ENDIF
  113. @ 0.077,0.200 GET M.ZipSlct ;
  114.      PICTURE "@&N" ;
  115.     FROM AZIP ;
  116.     SIZE 17.308,19.000 ;
  117.     DEFAULT 1 ;
  118.     FONT "MS Sans Serif", 8
  119.  
  120. IF NOT WVISIBLE("zip")
  121.     ACTIVATE WINDOW zip
  122. ENDIF
  123.  
  124. READ CYCLE ;
  125.     DEACTIVATE .T.
  126.  
  127. RELEASE WINDOW zip
  128.  
  129. *       *********************************************************
  130. *       *                                                         
  131. *       *                Windows Closing Databases                
  132. *       *                                                         
  133. *       *********************************************************
  134. *
  135.  
  136. IF USED("zip")
  137.     SELECT zip
  138.     USE
  139. ENDIF
  140.  
  141. SELECT (m.currarea)
  142.  
  143.  
  144. #REGION 0
  145.  
  146. SET READBORDER &rborder
  147.  
  148. IF m.talkstat = "ON"
  149.     SET TALK ON
  150. ENDIF
  151. IF m.compstat = "ON"
  152.     SET COMPATIBLE ON
  153. ENDIF
  154.